home *** CD-ROM | disk | FTP | other *** search
/ SPACE 2 / SPACE - Library 2 - Volume 1.iso / games / 2a / music / miamvi.bas < prev    next >
BASIC Source File  |  1985-05-29  |  7KB  |  108 lines
  1. 10    rem Miami Vice Theme for Casio CZ-101
  2. 15    rem Theme from the Universal Television Series by Jan Hammer
  3. 20    rem ST transcription by Greg Gorsiski 75166.303
  4. 21    rem        January 16,1986
  5. 22    rem The Song uses alot of the preprogrammed preset from Casio, if you
  6. 23    rem changed any of them I cant tell you what its going to sound like.
  7. 24    rem There is one preset change that must be done for the drum sound.
  8. 30    rem        January 16,1986
  9. 31    rem The following preset must be programmed into internal #16
  10. 32    rem That's INTERNAL-SELECT-8, Its the drum fill needed for miaim vice.
  11. 33    rem VIBRATO-all zeros         OCTAVE -1      DETUNE(+)ALL ZEROS
  12. 34    rem NOISE OFF, RING ON         LINE SELECT 1+1'
  13. 35    rem DCO #1 Wave Form=5,0
  14. 36    rem DCO #1 Envelope   Step 1   *** Rate 99  Level 99
  15. 37    rem                   Step 2   *** Rate 87  Level 30
  16. 38    rem                   Step 3   END Rate 40  Level 00
  17. 39    rem DCA #1 Key Range=4
  18. 40    rem DCA #1 Envelope   Step 1   *** Rate 99  Level 99
  19. 41    rem                   Step 2   *** rate 60  Level 70
  20. 42    rem                   Step 3   END Rate 40  Level 00
  21. 43    rem DCW #1 Key Range=6
  22. 44    rem DCW #1 Envelope   Step 1   *** Rate 99  Level 99
  23. 45    rem                   Step 2   *** Rate 62  Level 28
  24. 46    rem                   Step 3   END Rate 72  Level 00
  25. 47    rem This must be written to preset Internal 16 to sound (I hope) correct
  26. 48    rem Once written to the preset bank the only thing left to do is
  27. 49    rem press the SOLO button on your CASIO load and run the program
  28. 50    rem I'm also working on this program and one like it only a creator
  29. 51    rem not just a player,written in FORTH and a standalone application
  30. 52    rem PLEASE send me any comments good or bad I have a few more songs if
  31. 53    rem anyone is interested in them.
  32. 54    rem Thanks    Greg Gorsiski 75166.303(CIS) or SYSTOLE(Delphi)
  33. 55    rem
  34. 56    rem
  35. 59    out 3,192:out 3,44:out 3,193:out 3,44:out 3,194:out 3,47:en%=0
  36. 60    out 3,144:out 3,45:out 3,64:out 3,145:out 3,57:out 3,64:f%=0
  37. 70    for wait%=0 to 9000:next:for wow%=1 to 4:gosub 390:if wow%=3 then f%=1
  38. 90    next:for intro%=0 to 21:restore 280:if intro%=1 then gosub 390
  39. 100   if intro%=2 then gosub 390
  40. 110   if intro%>12 then for n%=193 to 195:out 3,n%:out 3,32:next:restore 450
  41. 120   if intro%=17 or intro%=19 then restore 570
  42. 130   if intro%=18 or intro%=20 then restore 690
  43. 140   if intro%=21 then restore 250:intro%=3:en%=en%+1:if en%=2 then 230
  44. 150   for song%=1 to 32:for voice%=144 to 147
  45. 160   read note%,cond%:if intro%>3 and voice%=145 then note%=note%+12
  46. 170   if intro%>5 and intro%<7 then note%=note%-2
  47. 180   if intro%>8 and intro%<10 then note%=note%-2
  48. 190   if intro%=14 and voice%=144 or intro%=16 and voice%=144 then note%=note%-2
  49. 200   if intro%=14 and voice%>144 or intro%=16 and voice%>144 then note%=note%+4
  50. 210   out 3,voice%:out 3,note%:out 3,cond%
  51. 220   for wait%=1 to 25:next:next:next:next
  52. 230   rem end of song
  53. 240   for voice%=144 to 147:out 3,48+voice%:out 3,34
  54. 250   out 3,voice%:out 3,69:out 3,64:next:end
  55. 270   rem intro data
  56. 280   data 45,64,45,64,0,0,0,0,45,64,45,64,0,0,0,0,43,64,43,64,0,0,0,0
  57. 290   data 38,64,38,64,0,0,0,0,45,64,45,64,0,0,0,0,45,64,45,64,0,0,0,0
  58. 300   data 33,64,33,64,0,0,0,0,45,64,45,64,0,0,0,0,45,64,45,64,0,0,0,0
  59. 310   data 45,64,45,64,0,0,0,0,43,64,43,64,0,0,0,0,45,64,45,64,0,0,0,0
  60. 320   data 47,64,47,64,0,0,0,0,43,64,43,64,0,0,0,0,40,64,40,64,0,0,0,0
  61. 330   data 45,64,45,64,0,0,0,0,45,64,45,64,0,0,0,0,45,64,45,64,0,0,0,0
  62. 340   data 45,64,45,64,0,0,0,0,33,64,33,64,0,0,0,0,45,64,45,64,0,0,0,0
  63. 350   data 45,64,45,64,0,0,0,0,38,64,38,64,0,0,0,0,45,64,45,64,0,0,0,0
  64. 360   data 43,64,43,64,0,0,0,0,47,64,47,64,0,0,0,0,45,64,45,64,0,0,0,0
  65. 370   data 45,64,45,64,0,0,0,0,47,64,47,64,0,0,0,0,45,64,45,64,0,0,0,0
  66. 380   data 45,64,45,64,0,0,0,0,45,64,45,64,0,0,0,0
  67. 390   rem drum fill
  68. 400   for drum%=90 to 36 step -2:out 3,146:out 3,drum%:out 3,64
  69. 410   if f%=1 then out 3,144:out 3,drum%:out 3,64
  70. 420   if f%=1 then out 3,145:out 3,drum%:out 3,64
  71. 430   for wait%=0 to 130:next:next:f%=0:return
  72. 440   rem diter data
  73. 450   data 45,64,59,64,62,64,67,64,45,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0
  74. 460   data 38,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  75. 470   data 33,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  76. 480   data 45,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  77. 490   data 47,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0,40,64,0,0,0,0,0,0
  78. 500   data 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  79. 510   data 45,64,0,0,0,0,0,0,33,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  80. 520   data 45,64,0,0,0,0,0,0,38,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  81. 530   data 43,64,0,0,0,0,0,0,47,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  82. 540   data 45,64,0,0,0,0,0,0,47,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  83. 550   data 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  84. 560   rem dit dah data
  85. 570   data 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0
  86. 580   data 38,64,0,0,0,0,0,0,45,64,66,64,66,64,66,64,45,64,0,0,0,0,0,0
  87. 590   data 33,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0,45,64,64,64,64,64,57,64
  88. 600   data 45,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  89. 610   data 47,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0,40,64,0,0,0,0,0,0
  90. 620   data 45,64,0,0,0,0,0,0,45,64,59,64,59,64,59,64,45,64,0,0,0,0,0,0
  91. 630   data 45,64,0,0,0,0,0,0,33,64,0,0,0,0,0,0,45,64,57,64,57,64,57,64
  92. 640   data 45,64,0,0,0,0,0,0,38,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  93. 650   data 43,64,0,0,0,0,0,0,47,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  94. 660   data 45,64,0,0,0,0,0,0,47,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  95. 670   data 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  96. 680   rem dah dit data
  97. 690   data 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0
  98. 700   data 38,64,0,0,0,0,0,0,45,64,69,64,65,64,60,64,45,64,0,0,0,0,0,0
  99. 710   data 33,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0,45,64,69,64,67,64,62,64
  100. 720   data 45,64,0,0,0,0,0,0,43,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  101. 730   data 47,64,69,64,66,64,62,64,43,64,0,0,0,0,0,0,40,64,0,0,0,0,0,0
  102. 740   data 45,64,0,0,0,0,0,0,45,64,69,64,67,64,62,64,45,64,0,0,0,0,0,0
  103. 750   data 45,64,0,0,0,0,0,0,33,64,0,0,0,0,0,0,45,64,69,64,66,64,62,64
  104. 760   data 45,64,0,0,0,0,0,0,38,64,69,64,64,64,61,64,45,64,0,0,0,0,0,0
  105. 770   data 43,64,0,0,0,0,0,0,47,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  106. 780   data 45,64,0,0,0,0,0,0,47,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  107. 790   data 45,64,0,0,0,0,0,0,45,64,0,0,0,0,0,0
  108. ə⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪⓪